home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cicon.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-28  |  2.6 KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form frmIcon 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "TextIcon Demo"
  5.    ClientHeight    =   1410
  6.    ClientLeft      =   1440
  7.    ClientTop       =   1830
  8.    ClientWidth     =   5115
  9.    Height          =   1815
  10.    Icon            =   CICON.FRX:0000
  11.    Left            =   1380
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   1410
  14.    ScaleWidth      =   5115
  15.    Top             =   1485
  16.    Width           =   5235
  17.    Begin CUACommand cmdOK 
  18.       Caption         =   "OK"
  19.       Default         =   -1  'True
  20.       Height          =   345
  21.       Left            =   3705
  22.       StandardButton  =   1  'OK
  23.       TabIndex        =   3
  24.       Top             =   75
  25.       Width           =   1260
  26.    End
  27.    Begin CUAIcon ico3 
  28.       BackColor       =   &H00C0C0C0&
  29.       BorderStyle     =   0  'None
  30.       Caption         =   "Icon 3"
  31.       ClipControls    =   0   'False
  32.       FontBold        =   0   'False
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   8.25
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       Height          =   795
  39.       Icon            =   CICON.FRX:0302
  40.       Left            =   2715
  41.       TabIndex        =   2
  42.       Top             =   315
  43.       Width           =   720
  44.    End
  45.    Begin CUAIcon ico2 
  46.       BackColor       =   &H00C0C0C0&
  47.       BorderStyle     =   0  'None
  48.       Caption         =   "Icon 2"
  49.       ClipControls    =   0   'False
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       Height          =   735
  57.       Icon            =   CICON.FRX:0604
  58.       Left            =   1710
  59.       TabIndex        =   1
  60.       Top             =   285
  61.       Width           =   690
  62.    End
  63.    Begin CUAIcon ico1 
  64.       BackColor       =   &H00C0C0C0&
  65.       BorderStyle     =   0  'None
  66.       Caption         =   "This is a long text under the icon"
  67.       ClipControls    =   0   'False
  68.       FontBold        =   0   'False
  69.       FontItalic      =   0   'False
  70.       FontName        =   "MS Sans Serif"
  71.       FontSize        =   8.25
  72.       FontStrikethru  =   0   'False
  73.       FontUnderline   =   0   'False
  74.       Height          =   1140
  75.       Icon            =   CICON.FRX:0906
  76.       Left            =   510
  77.       TabIndex        =   0
  78.       Top             =   120
  79.       Width           =   960
  80.    End
  81. Option Explicit
  82. Sub cmdOK_Click ()
  83.    Unload Me
  84. End Sub
  85.